Private Sub CommandButton1_Click()
If Sheet1.Range("I8").Value = "" Then
MsgBox "    ", vbCritical, ""
Exit Sub
End If
Dim LR As Integer
LR = Sheet2.Range("A5000").End(xlUp).Row + 1
Sheet2.Cells(LR, "A").Value = Sheet1.Range("I8").Value
Sheet2.Cells(LR, "B").Value = Sheet1.Range("I10").Value
Sheet2.Cells(LR, "D").Value = Sheet1.Range("I12").Value
Sheet2.Cells(LR, "C").Value = IIf(OptionButton1.Value = True,"",""," "," "," ")
Sheet2.Cells(LR, "G").Value = Sheet1.Range("L8").Value
Sheet2.Cells(LR, "I").Value = Sheet1.Range("L10").Value
Sheet2.Cells(LR, "J").Value = Sheet1.Range("L12").Value
Sheet2.Cells(LR, "P").Value = "=SUM(M3:O3)"
Sheet2.Cells(LR, "H").Value = Sheet1.Range("I18").Value
Sheet2.Cells(LR, "N").Value = IIf(CheckBox1.VALUE=TRUE," Sheet2.Cells(LR, "I")*14%")"
Sheet2.Cells(LR, "E").Value = IIf(CheckBox1.VALUE=TRUE,""
Sheet2.Cells(LR, "O").Value = IIf(CheckBox2.VALUE=TRUE,"Sheet2.Cells(LR, "I")*1%")"
Sheet2.Cells(LR, "F").Value = IIf(CheckBox2.VALUE=TRUE,""
MsgBox "    ", vbInformation, ""
Sheet1.Range("I8").Value = ""
Sheet1.Range("I10").Value = ""
Sheet1.Range("I12").Value = ""
OptionButton1.Value = ""
OptionButton2.Value = ""
OptionButton3.Value = ""
OptionButton4.Value = ""
OptionButton5.Value = ""
Sheet1.Range("L8").Value = ""
Sheet1.Range("L10").Value = ""
Sheet1.Range("L12").Value = ""
CheckBox1.VALUE=""
CheckBox2.VALUE=""
Sheet1.Range("I18").Value = ""

End Sub

Private Sub CommandButton2_Click()
End
End Sub
